From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 24 Dec 1993 02:49:41 +0000 (+0000)
Subject: (rmail-insert-inbox-text): If copy-file fails,
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~93735
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=660a52f9c9cab18c9b2d197176cd43c9f5a62c2d;p=emacs.git

(rmail-insert-inbox-text): If copy-file fails,
call rename-file with t as third arg.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index bbbe818ca7d..2ea8b6b27f1 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -778,7 +778,8 @@ argument causes us to read a file name and use that file as the inbox."
 	     (condition-case nil
 		 (copy-file file tofile nil)
 	       (error
-		(rename-file file tofile nil)))
+		;; Third arg is t so we can replace existing file TOFILE.
+		(rename-file file tofile t)))
 	     ;; Make the real inbox file empty.
 	     ;; Leaving it deleted could cause lossage
 	     ;; because mailers often won't create the file.